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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND corns 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH bs CeRse AND WITH THE 
INCLUSION OF iy & ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
Faanerekaten NO. TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eempokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


eaeeneeeee eee eee eee eeenane 
@a@eeneeneneneeneneaeaennannnne 


RARE AAERAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAATAATAEEARAAEARAARAAKKE 


Author Brian Porter Creation date: 16-JUL-1982 
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Functional description: 
This module displays events logged by the BSDRIVER (dt07). 


Modified by: 

v03-003 paneers Sha od A 28-Mar-1984 
Changed the call to “ocesi OW vies to ORBSL_OWNER. 

v03-002 SARO06S Sharon A. Reynolds, 20-Jun-1983 


Changed the corrtege control in the ‘format’ statements 
for use with ERF. 


v03-001 SAR0037 Sharon A. Reynolds, 88-Jun-1983 
Removed eriet/erypt ie support. 


AAOOAOOOOOOOAAAaAaa o POOVOOIOAIAIOIOAIOAIOAIOAIAIAOAIAIAIAIAAOOOAOS 


an 
‘* 
t* 


Subroutine BSDRIVER (lun) 


include ‘src$:msghdr.for /nolist' 
include ‘src$:deverr.for /nolist' 


byte lun 
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IN 
No 


integers4 ucb$b_bs_errms 
integere4 ucb$l_devdepen 
integers4 ucb$l_bs_cur 
integers4 ucb$l_bs_pre 
equivalence fonbs! .dv_regsev (0) -ucb$b_bs_errasg) 
equivalence (emb$l_dv_regsav(1),ucb$l_devdepend) 
equivalence (emb$l_dv_regsav(2),ucb$l_bs_cur) 
equivalence (emb$l_dv_regsav(5),ucb$l_bs_pre) 
character#32 ulucbst  dexdenend 0: 1A) 
ata viucb$l_devdepend(0) /**‘OWNER"', CURRENT PROCESS*'/ 
data viucb$l_devdepend(1) /"ATTENTION AST ENABLED®’/ 
data wiuces? .govgepend tg? /*SWITCHED BUS IN USE*'/ 
data viucb$l_devdepend(5) /"PORT HAS PRIMARY STATUS*'/ 
data viucb$l_devdepend(4) /"CURRENTLY IN PROGRAM MODE*'/ 
data viucb$l_devdepend(5) /‘CURRENTLY IN MANUAL MODE®' 
data ulucet: .qeveepend)s) /"DRIVER STATUS INITIALIZED*'/ 
data viucb$l_devdepend(7) /"SWITCHED DEVICES MARKED OFFLINE*'/ 
data WIUC Ds} Jcoveepend:3) /*SWITCHED DEVICES MARKED ON-LINE*'/ 
data viucb$l_devdepend(9) /"SWITCHED BUS DISCONNECT-IN-PROG*'/ 
data viucb$l_devdepend(10)/"SWITCHED BUS CONNECTED*'/ 
data viucb$l_devdepend(11)/°"'UBA'’ INITIALIZE-IN-PROGRESS*'/ 
data viucb$l_devdepend(12)/"DEVICE INTERRUPT DISABLED*'/ 
character*31 vicsr (0:15) 
data vicsr(0) /*REQUEST#'/ 
data vicsr(1) /*HOLD*®'/ 
data wicer sé? /*REQUEST LINE #0*'/ 
data vicsr(3) /*REQUEST LINE #1*'/ 
data vicsr(4) /*REQUEST LINE #2*'/ 
data vicsr(5) /*REQUEST LINE #5*° 
data vicsr(6) /* INTERRUPT ENABLE*'/ 
data vicsr(7) /*PORT CONNECTED TO SWITCHED BUS*'/ 
data vicsr(8) /*PORT REQUESTING MASTERSHIP®'/ 
data vicsr(9) /*GENERATE RESET PULSE*'/ 
data vicsr(10) /*PORT IN UAL MODE®' 
data vicsr(11) /*POWER-OK OTHER PORTS*'/ 
data vicertig /*EXTERNAL INTERRUPT®'/ 
data viesr(13) /*SWITCHED BUS ACTIVE®'/ 
data vicsr(14) /*SWITCHED BUS POWER-FAILURE®'/ 
data vicsr(15) /*TIMEQUT®'/ 
call fretof (lun) 


call dhead! (lun,*UBA DT07") 

call Linchk (lun,1) 

call ucb$$b_bs_errmsg (lun,ucb$b_bs_errmsg) 
call Linchk (Lun,2) 


F 13 
Ssep-19be 19:08:56 


6 
R 


Page 
CIBSDRIVER.FOR: 1° 


@ 
= 


4 4-4 4 4 4 4 4 0 4-4 4 0 4 9 9 ttt 


~ 


2222 


0é 
0¢ 
04 
04 
04 
04 
04 
04 
04 
04 
6. 
04 
04 
04 
04 
ei 
0 
0 
04 
0/ 
0 
0. 


@ 
= 


BSDRIVER 1§-5e9-1984 90:00:33 ge 3 


VAX=11 FORTRAN 3 Pa 
“Sep-1984 15:48:56 DISKSVMSMASTER: CERF .SRCIBSDRIVER.FOR; 1 


write(lun,20) *DTO7 ‘'CSR'’, CURRENT CONTENTS’ 
20 format(/' ',a) 


call Linchk (lun,2) 


rite(lun,25) ucb$l_bs 
25 Yormatt/"’*>t8. "UCRSL BS-CUR' ,t24,28.8) 
| 


Oooo 


ARANLESSLSALAVSS SANS ARs 


call output (lun,ucb$l_bs_cur,vicsr,0,0,15,'0") 
call Linchk (lun,2) 

write(lun,20) ‘DTO7 ‘'CSR'’, PREVIOUS CONTENTS‘ 
call Linchk (Llun,2) 


write(lun,30) ucb$l_bs : 
30 format(/* *,t8,"UCBSL_BS_PRE',t24,28.8) 


call output (lun,ucb$l_bs_pre,vicsr,0,0,15,'0") 
call Linchk (lun,1) 
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write(lun,32) 
32 format(' *,:) 


call orb$l_owner (lun,emb$l_dv_ownuic) 
call ucb$l_char (lun,emb$l_dv_char) 
call ucb$w_sts (lun,emb$w_dv_sts) 

call Linchk (lun,1) 


write(lun,35) ucb$l_devdepend 
35 format(' ',t8,"UCBSC_DEVDEPEND',t24,28.8) 


call output (lun,ucb$l_devdepend,viucb$l_devdepend,0,0,12,'0") 
call ucb$l_opcnt (lun,emb$l_dv_opcnt) 
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call ucb$w_errcnt (lun,emb$w_dv_errcnt) 

if (emb$w_hd_entry .ne. 98) then 

call Linchk (lun,1) 

write(lun,32) 

if Cemb$w_dv_func .eq. 2) then 

call irp$w_func (lun,emb$w_dv_func,* 1O$_READEXT®’) 
else if (emb$w_dv_func .eq. 5) then 

call irp$w_func (lun,emb$w_dv_func,* 1O$_DISCONNECT®*') 
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0 . else if (emb$widv_func .eq. 50) then 

¢ colt irp$w func (lLun,emb$w_dv_func,' 1O$_CONNECT®') 

5 call irp$Sw func (lun,emb$w_dv_func,'QI10 FUNCTION CODE*') 

8 ° endif 

8 : call irp$l_pid (lun,emb$l_dv_raqpid) 

0340 call irp$q_iosb (lun,emb$l_dv_iosb1) 

8 1 endif 

O3c8 return 

0344 

0345 end 


PROGRAM SECTIONS 


Name Bytes Attributes 
0 SCODE 625 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA $78 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
; SLOCAL 1340 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
EMB 512 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 2717 


ENTRY POINTS 
Address Type Name 


0-00000000 BSDRIVCR 
VARIABLES 
Name Address Type Name 
EMBSB_DV_CLASS - 0000010 L*1 EMBSB_DV_ERTCNT 
EMBSB_DV_ERTMAX -QO000003E L*1 EMBSB_DV_NAMLNG 
EMBSB_DV_SLAVE - 1D L*l EMBSB_DV_TYPE 
EMBSL_DV_CHAR - ; 0012 I*4 EMBSL_DV_10SB1 
EMBSL_DV_10SB2 - 0 I*4 EMBSL_DV_MEDIA 
EMBSL_DV_NUMREG - —E I*4 EMBSL_DV_OPCNT 
EMBSL_DV_OWNUIC - E I*4 EMBSL_DV_ROPID 
EMBSL_HD_SID - F CHAR EMBST_DV_NAME 
EMBSW_DV_BCNT - 2 I*2 EMBSW_DV_BOFF 
EMBSW_DV_ERRCNT - C I*2 EMBSW_DV_FUNC 
Emesu by sis - A It2 EMBSW_DV_UNIT 
MBSW"HD_ENTRY - 5 I*2 EMBSW_HD_ERRSEQ 
LUN - I*4 UCBS$B_BS_ERRMSG 
UCBS$L_BS_CUR - E I*4 UCBSL_BS_PRE 
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3-00000056 1*4 UCBSL_DEVDEPEND 


ARRAYS 
Address Type Name Bytes Dimensions 


~poonoes | Lei EMB 51 (0:511) 
-000000 I*4 EMBSL_DV_ amg 238 (0:104) 
-00000006 I*4 EMBSQ_HD_TIME 8 (@) 
-000001A0 CHAR VICSR™ 496 (0:15) 
-00000000 CHAR VIUCBSL _DEVDEPEND 416 (0:12) 
LABELS 
Address Label Address’ Label Address Label Address Label Address’ Label 
1-00000095 20° 1-0000009B 25° 1-00000085 30' 1-O000000CF 32° 1-000000D4 35' 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name 
IRP$L_PID 
ORBSL_OWNER OUTPUT UCB$$B_BS_ERRMSG 
UCB$L_ CHAR UCB$L_OPCNT UCBSW_ERRENT 
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Subroutine UCBSS$B_BS_ERRMSG (Llun,ucb$b_bs_errmsg) 
byte lun 
integers4 ucb$b_bs_errmsg 


Character*(*) Swi_bus, rs prog, conn, dis_conn, fail 
Character*(*) MsgT,msg2,msg 
Character*80 Message 


Parameter ( 
1 Swi_bus = "SWITCHED BUS, ', 
; Manual = ‘MANUAL’, 
Prog = ‘PROGRAMABLE '‘, 
4 Fail = *POWER-FAILURE ', 
5 Conn = ‘CONNECT TO THIS PORT', 
6 Dis_conn = "DISCONNECT FROM THIS PORT’, 


1 Msgi = ‘‘'UBA’ INITIALIZE IN PROGRESS’, 
Msg2 = ‘PORT HAS RECEIVED UNRECOGNIZED INTERRUPT’, 
Msg5 = ‘PORT HAS ENCOUNTERED ILLEGAL CONDITION") 


call Linchk (lun.2) 
Goto (10,20,30,40,50,60,70,80) ucb$b_bs_errmsg 


write(lun,15) ucb$b_bs orrese 
rornet(/” *,t8, 'UCBSB_BS_ERRASG' ,.t24,28.8) 
return 


Message = swi_bus // manual // conn 
Length = len Tswi_bus) + len (manual) + Len (conn) 
Goto 999 


Message = swi_bus // manual // dis_conn 
Length = Len Tswi_bus) + len (manual) + Len (dis_conn) 
Goto 999 


Ressage = swi_bus // fail // dis_conn 
Length = len Tswi_bus) + len (faTl) + Len (dis_conn) 
Goto 999 


mecsone = swi_bus // prog // dis conn 
Length « Len Tswi_bus) + len (prog) + Len (dis_conn) 
oto 


Message = swi_bus // prog // conn 
Length = len Tswi_bus) + Len (prog) + len (conn) 
Goto 999 


Message = msgi 
Length = len (msg) 
Goto 999 


Message = msg2 
Length = len (msg2) 
Goto 999 
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UCB$$B_BS_ERRMSG 


006 
80 Message = msg3 
¢ Length = len (msg3) 


Return 
End 


PROGRAM SECTIONS 
Name 
0 SCODE 
1 SPDATA 
2 $SLOCAL 
Total Space Allocated 


ENTRY POINTS 
Address Type Name 
0-00000000 UCB$$B_BS_ERRMSG 


VARIABLES 
Address Type Name 
2-00000050 I*4 LENGTH 
2-00000000 CHAR MESSAGE 
LABELS 
Address’ Label Address 


a ses snd 10 1-00000004 
0-000000C2 60 


Type Name 
LINCHK 


999 write(lun,998) Message 
998 format(/" ',t8,a<length>) 


0-000000D4 70 


FUNCTIONS AND SUBROUTINES REFERENCED 


Address Label 


-00000066 ¢° 0-000 
-000000E6 80 -000 
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Attributes 
ee 


HH nok RD NOWRT LONG 
NOSHR NOE 


XE 
OEXE RD NOWRT LONG 
XE RD WRT LONG 


Address Type Name 


AP-00000004@ L*1_ LUN 
AP-000000088 I*4 UCB$B_BS_ERRMSG 


Address’ Label Address’ Label 


30 g- 0000094 40 
-000000F6 999 
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000 
68 : Subroutine UCBS$B_BS_ERRMSG (Lun,ucb$b_bs_errmsg) 
0004 C 
0005 C byte Lun 
0007 € int 4 b$b_b 
nteger uc S_errms 
0008 = ¢ . —— 
0009 C 
0010 C call Linchk (Llun,2) 
0011 C 
pong : if (ucb$b_bs_errmsg .eq. 1) then 
0014 C write(lun,10) ‘SWITCHED BUS, MANUAL CONNECT TO THIS PORT’ 
Sole zt0 format(/" ',t8,a) 
ot $4 : else if (ucb$b_bs_errmsg .eq. 2) then 
hg : write(lun,10) ‘SWITCHED BUS, MANUAL DISCONNECT FROM THIS PORT’ 
0031 : else if (ucb$b_bs_errmsg .eq. 3) then 
0038 3 write(lun,10) "SWITCHED BUS, POWER-FAILURE DISCONNECT FROM THIS PORT’ 
$4 ; else if (ucb$b_bs_errmsg .eq. 4) then 
it 4 : write(lun,10) "SWITCHED BUS, PROGRAMABLE DISCONNECT FROM THIS PORT’ 
534 : else if (ucb$b_bs_errmsg .eq. 5) then 
ath : write(lun,10) ‘SWITCHED BUS, PROGRAMABLE CONNECT TO THIS PORT' 
it : else if (ucb$b_bs_errmsg .eq. 6) then 
O82 : write(lun,10) ‘"UBA’ INITIALIZE IN PROGRESS‘ 
sit t4 : else if (ucb$b_bs_errmsg .eq. 7) then 
te : write(lun,10) "PORT HAS RECEIVED UNRECOGNIZED INTERRUPT‘ 
0041 : else if (ucb$b_bs_errmsg .eq. 8) then 
$048 C write(lun,10) ‘PORT HAS ENCOUNTERED ILLEGAL CONDITION’ 
bee : else 
R006 C write(lun,15) ucb$b_bs errmsg 
C15 format(/* ',t8,'UCBSB_BS_ERRMSG',t24,28.8) 

98 : endif 

50 C return 

51 C 

52 C end 
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COMMAND QUALIFIERS 


FORTRAN /LIS=LIS$:BSDRIVER/OBJ=OBJ$:BSDRIVER MSRC$:BSDRIVER 
/CHECK= (NOBOUNDS , OVERFLOW AN NOUNDERF LOW) 
/STANDARD= (NOSYNTAX RC 
/SHOW=(NOPREPR ROCESSOR, NOINCLODE ,M 
/F77 /NOG_FLOATING /14 SOPTIIZE. /WARNINGS /NOD_LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 
COMPILATION STATISTICS 
Run Time: 


4.39 seconds 
Elapsed Time: 17.23 seconds 
Page Faults: 179 ; 
Dynamic Memory: 182 pages 
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